foreach y of numlist 1979/1981{
	rename Q13_5_`y' incwage_own`y' 
	rename Q13_18_`y' incwage_sps`y'
	if ( `y'==1980 ){
		rename Q13_9_`y' incbus_own`y' 
	}
	else {
		rename Q13_8_`y' incbus_own`y' 	
	}
	rename Q13_24_`y' incbus_sps`y' 
	rename TNFI_TRUNC_`y' netfi`y'
}
foreach y of numlist 1982/1994 1996(2)2000{
	rename Q13_5_TRUNC_REVISED_`y' incwage_own`y' 
	rename Q13_18_TRUNC_REVISED_`y' incwage_sps`y'
	if ( `y'==1982 | `y'==1984 ){
		rename Q13_8_TRUNC_REVISED_`y' incbus_own`y'
	}
	else{
		rename Q13_9_TRUNC_REVISED_`y' incbus_own`y'	
	}
	rename Q13_24_TRUNC_REVISED_`y' incbus_sps`y' 
	rename TNFI_TRUNC_`y' netfi`y'
}
foreach y of numlist 2002(2)2016{
	rename Q13_5_TRUNC_`y' incwage_own`y' 
	rename Q13_18_TRUNC_`y' incwage_sps`y' 
	rename Q13_9_TRUNC_`y' incbus_own`y' 
	rename Q13_24_TRUNC_`y' incbus_sps`y' 
	rename TNFI_TRUNC_`y' netfi`y'
}
reshape long incwage_own incwage_sps incbus_own incbus_sps netfi, i(CASEID_1979) j(year)
